home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH03.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  13 lines
  1. 10  '**********************************
  2. 20  '**         GRAPH03              **
  3. 30  '**********************************
  4. 40  A=1:B=1
  5. 50  SCREEN 1:KEY OFF:CLS
  6. 60  X1=0:X2=319:Y1=0:Y2=199
  7. 70  LINE (X1+A,Y1+A)-(X2-A,Y2-A),B,B
  8. 80  X1=X1+9:X2=X2-9:Y1=Y1+1.2:Y2=Y2-1.2
  9. 90  A=A+0.5
  10. 100  IF X2-A>0 THEN 70
  11. 110  B=B+1
  12. 120  IF B<10 THEN FOR Z = 1 TO 1000          : NEXT : GOTO 50
  13.